home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmCT_1015_ScrollBar < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.2 KB  |  57 lines
  1. %case include%
  2.     %if not mainScroll%
  3.         #include <CSlider.h>
  4.     %endif%
  5. %case instance%
  6.     %if not mainScroll%
  7.         CSlider            *%itemname%;
  8.     %endif%
  9. %case create%
  10.     %if not mainScroll%
  11.  
  12.         %itemname% = new (CSlider);
  13.         %itemname%->ISlider (%cntlID%,  enclosure, supervisor, sizFIXEDLEFT, sizFIXEDTOP);
  14.     %endif%
  15. %case itemNr%
  16.     %DefineItem%
  17. %case dialog field%
  18.     short%        %%fieldname%;
  19.     %Enable?%
  20.     %haveField%
  21. %case init field%
  22.     info->%fieldname% = 1;
  23.     %Enable?%
  24. %case auxiliary%
  25.     %needsFilter%
  26.     /*----------*/
  27.     static pascal void %itemname%Action (short        newValue,
  28.                                 short        oldValue);
  29.     static pascal void %itemname%Action (newValue, oldValue)
  30.     short        newValue;
  31.     short        oldValue;
  32.     {
  33.     %if lang =  MPW%
  34.     #pragma unused (newValue, oldValue) 
  35.       
  36.     %endif%
  37.     } /*%itemname%Action*/
  38.     
  39. %case filter%
  40.     if (!filtered) {
  41.     %if lang = MPW%
  42.         filtered = FilterScroll (event, %itemname%, &%itemname%Action, itemHit);
  43.     %endif%
  44.     %if lang = Think%
  45.         filtered = FilterScroll (event, %itemname%, (ProcPtr) &%itemname%Action, itemHit);
  46.     %endif%
  47.     }
  48. %case set%
  49.     SetScrollItem (%itemname%, info->%fieldname%, 1, 100, 10);
  50. %case enable%
  51.     %Enable?%
  52. %case hit%
  53.     case %itemname%:
  54.             DoScrollItem (itemNr, &info->%fieldname%);
  55.         break;
  56. %case finish%
  57.